home *** CD-ROM | disk | FTP | other *** search
/ Computer Music Interacti…pecial Edition 2000 April / cd.iso / pc / PC / Compression / visualcodec / m8vcs99.exe / MimarSinan ClassiComp (ZIP) / mZipTest.exe / 0 / RCDATA / TZIPTEST / TZIPTEST.txt
Encoding:
Text File  |  1999-08-27  |  4.1 KB  |  158 lines

  1. object ZipTest: TZipTest
  2.   Left = 323
  3.   Top = 267
  4.   BorderIcons = [biSystemMenu, biMinimize]
  5.   BorderStyle = bsSingle
  6.   Caption = 'MimarSinan Zip Test'
  7.   ClientHeight = 136
  8.   ClientWidth = 368
  9.   Color = clBtnFace
  10.   Font.Charset = DEFAULT_CHARSET
  11.   Font.Color = clWindowText
  12.   Font.Height = -11
  13.   Font.Name = 'MS Sans Serif'
  14.   Font.Style = []
  15.   OldCreateOrder = True
  16.   Position = poScreenCenter
  17.   OnCreate = FormCreate
  18.   PixelsPerInch = 96
  19.   TextHeight = 13
  20.   object Target: TFileLabel
  21.     Left = 8
  22.     Top = 116
  23.     Width = 185
  24.     Height = 17
  25.     Direction = drFromLeft
  26.     Separator = '\'
  27.   end
  28.   object Source: TFileLabel
  29.     Left = 8
  30.     Top = 80
  31.     Width = 273
  32.     Height = 17
  33.     Direction = drFromLeft
  34.     Separator = '\'
  35.   end
  36.   object Cancel: TToolbarButton97
  37.     Left = 288
  38.     Top = 77
  39.     Width = 73
  40.     Height = 22
  41.     Caption = 'Cancel'
  42.     Glyph.Data = {
  43.       66010000424D6601000000000000760000002800000014000000140000000100
  44.       040000000000F000000000000000000000001000000010000000000000008000
  45.       0000008000008080000000008000800080000080800080808000C0C0C000FF00
  46.       000000FF0000FFFF00000000FF00FF00FF0000FFFF00FFFFFF00888888888888
  47.       8888888800008888888888888888888800008888888888888888888800008888
  48.       8899888888888888000088888988988998888888000088888988989889888888
  49.       0000888889889898898888880000888888999898898888880000888888889899
  50.       9888888800008888888890988888888800008888888880888888888800008888
  51.       8888000888888888000088888888080888888888000088888880080088888888
  52.       0000888888808880888888880000888888808880888888880000888888808880
  53.       8888888800008888888888888888888800008888888888888888888800008888
  54.       88888888888888880000}
  55.     OnClick = CancelClick
  56.   end
  57.   object pause: TToolbarButton97
  58.     Left = 288
  59.     Top = 101
  60.     Width = 73
  61.     Height = 22
  62.     Caption = 'Pause'
  63.     Glyph.Data = {
  64.       F6000000424DF600000000000000760000002800000010000000100000000100
  65.       0400000000008000000000000000000000001000000010000000000000000000
  66.       BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
  67.       FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
  68.       777777777778087777777777777000777777770000000000000777087FBFBFBF
  69.       7807777087FBFBF780777777087FBF7807777777087BFB7807777777087FBF78
  70.       07777777087BFB7807777777087FBF78077777777087F7807777777777087807
  71.       7777777777700077777777777777777777777777777777777777}
  72.     OnClick = pauseClick
  73.   end
  74.   object Major: TGradProgress
  75.     Left = 8
  76.     Top = 100
  77.     Width = 273
  78.     Height = 13
  79.     Font.Charset = DEFAULT_CHARSET
  80.     Font.Color = clWhite
  81.     Font.Height = -13
  82.     Font.Name = 'Default'
  83.     Font.Style = []
  84.     UseSystemColors = True
  85.     Smooth = False
  86.     RelativeGradient = False
  87.     BevelStyle = bsLowered
  88.     BevelWidth = 1
  89.     StartColor = 2107544
  90.     EndColor = clSilver
  91.     Position = 0
  92.     MaxValue = 100
  93.     Step = 1
  94.     ShowPercent = False
  95.     BackColor = clBtnFace
  96.   end
  97.   object Minor: TGradProgress
  98.     Left = 200
  99.     Top = 116
  100.     Width = 78
  101.     Height = 6
  102.     Font.Charset = DEFAULT_CHARSET
  103.     Font.Color = clWhite
  104.     Font.Height = -13
  105.     Font.Name = 'Default'
  106.     Font.Style = []
  107.     UseSystemColors = True
  108.     Smooth = True
  109.     RelativeGradient = False
  110.     BevelStyle = bsLowered
  111.     BevelWidth = 1
  112.     StartColor = 2107544
  113.     EndColor = clSilver
  114.     Position = 0
  115.     MaxValue = 100
  116.     Step = 1
  117.     ShowPercent = False
  118.     BackColor = clBtnFace
  119.   end
  120.   object LeftFolder: TImage
  121.     Left = 8
  122.     Top = 16
  123.     Width = 41
  124.     Height = 41
  125.   end
  126.   object RightFolder: TImage
  127.     Left = 192
  128.     Top = 16
  129.     Width = 41
  130.     Height = 41
  131.   end
  132.   object Avi: TAnimate
  133.     Left = 48
  134.     Top = 16
  135.     Width = 145
  136.     Height = 41
  137.     Active = False
  138.     StopFrame = 23
  139.   end
  140.   object Timer: TTimer
  141.     Interval = 800
  142.     OnTimer = TimerTimer
  143.     Left = 320
  144.     Top = 40
  145.   end
  146.   object Unzip: TUnzipFile
  147.     OnMajorCallback = UnzipMajorCallback
  148.     OnMinorCallback = UnzipMinorCallback
  149.     OnMessageCallback = UnzipMessageCallback
  150.     lpszFileSpec.PChar = {2A2E2A00}
  151.     IndexofItem = 0
  152.     Options = [QuietFlag, TestFlag, RecurseFlag]
  153.     wUnzipSubOptions = [USO_MINORCANCEL]
  154.     Left = 288
  155.     Top = 40
  156.   end
  157. end
  158.